Digital Competence Insights
  • Dimensions
    • Strategic Information
    • Critical Information
    • Netiquette
    • Digital Content Creation
    • Safety
    • Digital Health
    • Green Digital
    • Digital Problem Solving
    • Transactional
    • AI
    • Gen AI
  • Skills
  • Performance
  • Knowledge
  • Highlights
  • About

Digital Health

THIS IS A MOCKUP VERSION PLEASE DO NOT CITE

Digital Health & Wellbeing skills relate to managing healthy digital habits: controlling screen time, minimizing distractions, taking digital breaks, and understanding how technology affects sleep and wellbeing.

Digital Health Skills

ADD TEXT BEFORE TABSET

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3
  • Question 1
  • Question 2
  • Question 3

Health Knowledge

Digital Health & Wellbeing skills relate to managing healthy digital habits: controlling screen time, minimizing distractions, taking digital breaks, and understanding how technology affects sleep and wellbeing.

The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.
  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2
  • Question 1
  • Question 2

Health Performance

ADD TEXT BEFORE TABSET

  • Wave 1
  • Wave 2
  • Over Time
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • item8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • item8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • item8
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • item8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • item8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • item8
  • Overall
  • Age
  • Gender
  • Education
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • item8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • item8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • item8
  • Question 1
  • Question 2
  • Question 3
  • Question 4
  • Question 5
  • Question 6
  • Question 7
  • item8
Back to top
Source Code
---
title: "{{< iconify ph heart-fill >}} Digital Health"
format: html
---

```{r}
#| include: false
library(dashboardr)
```

**THIS IS A MOCKUP VERSION PLEASE DO NOT CITE**

**Digital Health & Wellbeing** skills relate to managing healthy digital habits: controlling screen time, minimizing distractions, taking digital breaks, and understanding how technology affects sleep and wellbeing.

```{r setup}
#| echo: false
#| warning: false
#| message: false
#| error: false
#| results: 'hide'

# Load required libraries
library(dashboardr)
library(dplyr)
library(highcharter)

# Global chunk options
knitr::opts_chunk$set(
  echo = FALSE,
  warning = FALSE,
  message = FALSE,
  error = FALSE,
  fig.width = 12,
  fig.height = 8,
  dpi = 300
)

# Load data from dataset_4014obs.rds
data <- readRDS('dataset_4014obs.rds')

# Data summary
cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n')

# Create filtered datasets
# Each filter is applied once and reused across visualizations

data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1)
data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2)

```

## {{< iconify ph lightning-fill >}} Digital Health Skills


ADD TEXT BEFORE TABSET


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r dhealth-wave1-overall-2}
# Digital Health and Wellbeing Skills
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(SHealth1, SHealth2_V2, SHealth3_V2),
  title = "Digital Health and Wellbeing Skills",
  questions = c("SHealth1", "SHealth2_V2", "SHealth3_V2"),
  question_labels = c("I know how to control how much time I spend on the internet.", "I know how to make sure my phone does not distract me.", "I know how I can stop using my phone and computer for a while, if I want to."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r dhealth-wave1-age-item1-2}
# I know how to control how much time I spend on the internet.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SHealth1),
  title = "I know how to control how much time I spend on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SHealth1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r dhealth-wave1-age-item2-2}
# I know how to make sure my phone does not distract me.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SHealth2_V2),
  title = "I know how to make sure my phone does not distract me.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SHealth2_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r dhealth-wave1-age-item3-2}
# I know how I can stop using my phone and computer for a while, if I want to.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SHealth3_V2),
  title = "I know how I can stop using my phone and computer for a while, if I want to.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SHealth3_V2"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r dhealth-wave1-gender-item1-2}
# I know how to control how much time I spend on the internet.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SHealth1),
  title = "I know how to control how much time I spend on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SHealth1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r dhealth-wave1-gender-item2-2}
# I know how to make sure my phone does not distract me.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SHealth2_V2),
  title = "I know how to make sure my phone does not distract me.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SHealth2_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r dhealth-wave1-gender-item3-2}
# I know how I can stop using my phone and computer for a while, if I want to.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SHealth3_V2),
  title = "I know how I can stop using my phone and computer for a while, if I want to.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SHealth3_V2"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r dhealth-wave1-edu-item1-2}
# I know how to control how much time I spend on the internet.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SHealth1),
  title = "I know how to control how much time I spend on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SHealth1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r dhealth-wave1-edu-item2-2}
# I know how to make sure my phone does not distract me.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SHealth2_V2),
  title = "I know how to make sure my phone does not distract me.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SHealth2_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r dhealth-wave1-edu-item3-2}
# I know how I can stop using my phone and computer for a while, if I want to.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SHealth3_V2),
  title = "I know how I can stop using my phone and computer for a while, if I want to.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SHealth3_V2"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r dhealth-wave2-overall-2}
# Digital Health and Wellbeing Skills
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(SHealth1, SHealth2_V2, SHealth3_V2),
  title = "Digital Health and Wellbeing Skills",
  questions = c("SHealth1", "SHealth2_V2", "SHealth3_V2"),
  question_labels = c("I know how to control how much time I spend on the internet.", "I know how to make sure my phone does not distract me.", "I know how I can stop using my phone and computer for a while, if I want to."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r dhealth-wave2-age-item1-2}
# I know how to control how much time I spend on the internet.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SHealth1),
  title = "I know how to control how much time I spend on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SHealth1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r dhealth-wave2-age-item2-2}
# I know how to make sure my phone does not distract me.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SHealth2_V2),
  title = "I know how to make sure my phone does not distract me.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SHealth2_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r dhealth-wave2-age-item3-2}
# I know how I can stop using my phone and computer for a while, if I want to.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SHealth3_V2),
  title = "I know how I can stop using my phone and computer for a while, if I want to.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "SHealth3_V2"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r dhealth-wave2-gender-item1-2}
# I know how to control how much time I spend on the internet.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SHealth1),
  title = "I know how to control how much time I spend on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SHealth1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r dhealth-wave2-gender-item2-2}
# I know how to make sure my phone does not distract me.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SHealth2_V2),
  title = "I know how to make sure my phone does not distract me.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SHealth2_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r dhealth-wave2-gender-item3-2}
# I know how I can stop using my phone and computer for a while, if I want to.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SHealth3_V2),
  title = "I know how I can stop using my phone and computer for a while, if I want to.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "SHealth3_V2"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r dhealth-wave2-edu-item1-2}
# I know how to control how much time I spend on the internet.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SHealth1),
  title = "I know how to control how much time I spend on the internet.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SHealth1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r dhealth-wave2-edu-item2-2}
# I know how to make sure my phone does not distract me.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SHealth2_V2),
  title = "I know how to make sure my phone does not distract me.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SHealth2_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r dhealth-wave2-edu-item3-2}
# I know how I can stop using my phone and computer for a while, if I want to.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SHealth3_V2),
  title = "I know how I can stop using my phone and computer for a while, if I want to.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0.5, 2.5, 3.5, 5.5),
  stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "SHealth3_V2"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r dhealth-overtime-overall-item1-2}
# I know how to control how much time I spend on the internet.
result <- create_timeline(
  data = data,
  title = "I know how to control how much time I spend on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SHealth1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r dhealth-overtime-overall-item2-2}
# I know how to make sure my phone does not distract me.
result <- create_timeline(
  data = data,
  title = "I know how to make sure my phone does not distract me.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SHealth2_V2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r dhealth-overtime-overall-item3-2}
# I know how I can stop using my phone and computer for a while, if I want to.
result <- create_timeline(
  data = data,
  title = "I know how I can stop using my phone and computer for a while, if I want to.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  response_filter_label = "Percentage who answered (Completely) True (4-5)",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  response_var = "SHealth3_V2"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r dhealth-overtime-age-item1-2}
# I know how to control how much time I spend on the internet.
result <- create_timeline(
  data = data,
  title = "I know how to control how much time I spend on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SHealth1",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r dhealth-overtime-age-item2-2}
# I know how to make sure my phone does not distract me.
result <- create_timeline(
  data = data,
  title = "I know how to make sure my phone does not distract me.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SHealth2_V2",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r dhealth-overtime-age-item3-2}
# I know how I can stop using my phone and computer for a while, if I want to.
result <- create_timeline(
  data = data,
  title = "I know how I can stop using my phone and computer for a while, if I want to.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SHealth3_V2",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r dhealth-overtime-gender-item1-2}
# I know how to control how much time I spend on the internet.
result <- create_timeline(
  data = data,
  title = "I know how to control how much time I spend on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SHealth1",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r dhealth-overtime-gender-item2-2}
# I know how to make sure my phone does not distract me.
result <- create_timeline(
  data = data,
  title = "I know how to make sure my phone does not distract me.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SHealth2_V2",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r dhealth-overtime-gender-item3-2}
# I know how I can stop using my phone and computer for a while, if I want to.
result <- create_timeline(
  data = data,
  title = "I know how I can stop using my phone and computer for a while, if I want to.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SHealth3_V2",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r dhealth-overtime-edu-item1-2}
# I know how to control how much time I spend on the internet.
result <- create_timeline(
  data = data,
  title = "I know how to control how much time I spend on the internet.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SHealth1",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r dhealth-overtime-edu-item2-2}
# I know how to make sure my phone does not distract me.
result <- create_timeline(
  data = data,
  title = "I know how to make sure my phone does not distract me.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SHealth2_V2",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r dhealth-overtime-edu-item3-2}
# I know how I can stop using my phone and computer for a while, if I want to.
result <- create_timeline(
  data = data,
  title = "I know how I can stop using my phone and computer for a while, if I want to.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = c(4, 5),
  x_label = "",
  y_label = "Percentage who answered (Completely) True (4-5)",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  y_min = 0,
  y_max = 100,
  weight_var = "weging_GAMO",
  response_var = "SHealth3_V2",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph book-open-fill >}} Health Knowledge


**Digital Health & Wellbeing** skills relate to managing healthy digital habits: controlling screen time, minimizing distractions, taking digital breaks, and understanding how technology affects sleep and wellbeing.

```{r, echo=FALSE, message=FALSE, warning=FALSE}
create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question")
```


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r khealth-wave1-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(KHealth2RC, KHealth3RC),
  title = "",
  questions = c("KHealth2RC", "KHealth3RC"),
  question_labels = c("Platforms like YouTube or Netflix are designed to keep people watching as long as possible.", "You sleep worse if you use a smartphone or computer just before you go to bed."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r khealth-wave1-age-item1-2}
# Platforms like YouTube or Netflix are designed to keep people watching as long as possible.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KHealth2RC),
  title = "Platforms like YouTube or Netflix are designed to keep people watching as long as possible.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KHealth2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r khealth-wave1-age-item2-2}
# You sleep worse if you use a smartphone or computer just before you go to bed.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KHealth3RC),
  title = "You sleep worse if you use a smartphone or computer just before you go to bed.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KHealth3RC"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r khealth-wave1-gender-item1-2}
# Platforms like YouTube or Netflix are designed to keep people watching as long as possible.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KHealth2RC),
  title = "Platforms like YouTube or Netflix are designed to keep people watching as long as possible.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KHealth2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r khealth-wave1-gender-item2-2}
# You sleep worse if you use a smartphone or computer just before you go to bed.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KHealth3RC),
  title = "You sleep worse if you use a smartphone or computer just before you go to bed.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KHealth3RC"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r khealth-wave1-edu-item1-2}
# Platforms like YouTube or Netflix are designed to keep people watching as long as possible.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KHealth2RC),
  title = "Platforms like YouTube or Netflix are designed to keep people watching as long as possible.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KHealth2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r khealth-wave1-edu-item2-2}
# You sleep worse if you use a smartphone or computer just before you go to bed.
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KHealth3RC),
  title = "You sleep worse if you use a smartphone or computer just before you go to bed.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KHealth3RC"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r khealth-wave2-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(KHealth2RC, KHealth3RC),
  title = "",
  questions = c("KHealth2RC", "KHealth3RC"),
  question_labels = c("Platforms like YouTube or Netflix are designed to keep people watching as long as possible.", "You sleep worse if you use a smartphone or computer just before you go to bed."),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r khealth-wave2-age-item1-2}
# Platforms like YouTube or Netflix are designed to keep people watching as long as possible.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KHealth2RC),
  title = "Platforms like YouTube or Netflix are designed to keep people watching as long as possible.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KHealth2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r khealth-wave2-age-item2-2}
# You sleep worse if you use a smartphone or computer just before you go to bed.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KHealth3RC),
  title = "You sleep worse if you use a smartphone or computer just before you go to bed.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "KHealth3RC"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r khealth-wave2-gender-item1-2}
# Platforms like YouTube or Netflix are designed to keep people watching as long as possible.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KHealth2RC),
  title = "Platforms like YouTube or Netflix are designed to keep people watching as long as possible.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KHealth2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r khealth-wave2-gender-item2-2}
# You sleep worse if you use a smartphone or computer just before you go to bed.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KHealth3RC),
  title = "You sleep worse if you use a smartphone or computer just before you go to bed.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "KHealth3RC"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r khealth-wave2-edu-item1-2}
# Platforms like YouTube or Netflix are designed to keep people watching as long as possible.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KHealth2RC),
  title = "Platforms like YouTube or Netflix are designed to keep people watching as long as possible.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KHealth2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r khealth-wave2-edu-item2-2}
# You sleep worse if you use a smartphone or computer just before you go to bed.
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KHealth3RC),
  title = "You sleep worse if you use a smartphone or computer just before you go to bed.",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"),
  stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "KHealth3RC"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r khealth-overtime-overall-item1-2}
# Platforms like YouTube or Netflix are designed to keep people watching as long as possible.
result <- create_timeline(
  data = data,
  title = "Platforms like YouTube or Netflix are designed to keep people watching as long as possible.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "KHealth2RC"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r khealth-overtime-overall-item2-2}
# You sleep worse if you use a smartphone or computer just before you go to bed.
result <- create_timeline(
  data = data,
  title = "You sleep worse if you use a smartphone or computer just before you go to bed.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "KHealth3RC"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r khealth-overtime-age-item1-2}
# Platforms like YouTube or Netflix are designed to keep people watching as long as possible.
result <- create_timeline(
  data = data,
  title = "Platforms like YouTube or Netflix are designed to keep people watching as long as possible.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KHealth2RC",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r khealth-overtime-age-item2-2}
# You sleep worse if you use a smartphone or computer just before you go to bed.
result <- create_timeline(
  data = data,
  title = "You sleep worse if you use a smartphone or computer just before you go to bed.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KHealth3RC",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r khealth-overtime-gender-item1-2}
# Platforms like YouTube or Netflix are designed to keep people watching as long as possible.
result <- create_timeline(
  data = data,
  title = "Platforms like YouTube or Netflix are designed to keep people watching as long as possible.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KHealth2RC",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r khealth-overtime-gender-item2-2}
# You sleep worse if you use a smartphone or computer just before you go to bed.
result <- create_timeline(
  data = data,
  title = "You sleep worse if you use a smartphone or computer just before you go to bed.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KHealth3RC",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r khealth-overtime-edu-item1-2}
# Platforms like YouTube or Netflix are designed to keep people watching as long as possible.
result <- create_timeline(
  data = data,
  title = "Platforms like YouTube or Netflix are designed to keep people watching as long as possible.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KHealth2RC",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r khealth-overtime-edu-item2-2}
# You sleep worse if you use a smartphone or computer just before you go to bed.
result <- create_timeline(
  data = data,
  title = "You sleep worse if you use a smartphone or computer just before you go to bed.",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "KHealth3RC",
  group_var = "Education"
)

result
```


:::


:::


:::

## {{< iconify ph clipboard-text >}} Health Performance


ADD TEXT BEFORE TABSET


::: {.panel-tabset}

### {{< iconify ph number-circle-one-fill >}} Wave 1


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-health-wave1-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_984a0efe %>% tidyr::drop_na(PDHWS1_1, PDHWS1_2, PDHWS1_3, PDHWS1_4, PDHWS1_5, PDHWS1_6, PDHWS1_7, PDHWS1_8),
  title = "",
  questions = c("PDHWS1_1", "PDHWS1_2", "PDHWS1_3", "PDHWS1_4", "PDHWS1_5", "PDHWS1_6", "PDHWS1_7", "PDHWS1_8"),
  question_labels = c("Create digital detox moments", "Have rules limiting digital media", "Use screen-time limiter", "Temporarily switch off Internet", "Delete apps/programs", "Turn off notifications", "Reduce time without special approach", "None of these actions"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave1-age-item1-2}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave1-age-item2-2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave1-age-item3-2}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave1-age-item4-2}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave1-age-item5-2}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave1-age-item6-2}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave1-age-item7-2}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_7"
)

result
```


###### item8


```{r perf-health-wave1-age-item8-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_8"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave1-gender-item1-2}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave1-gender-item2-2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave1-gender-item3-2}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave1-gender-item4-2}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave1-gender-item5-2}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave1-gender-item6-2}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave1-gender-item7-2}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_7"
)

result
```


###### item8


```{r perf-health-wave1-gender-item8-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_8"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave1-edu-item1-2}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave1-edu-item2-2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave1-edu-item3-2}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave1-edu-item4-2}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave1-edu-item5-2}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave1-edu-item6-2}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave1-edu-item7-2}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_7"
)

result
```


###### item8


```{r perf-health-wave1-edu-item8-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_8"
)

result
```


:::


:::


### {{< iconify ph number-circle-two-fill >}} Wave 2


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


```{r perf-health-wave2-overall-2}
# 
result <- create_stackedbars(
  data = data_filtered_4af682fd %>% tidyr::drop_na(PDHWS1_1, PDHWS1_2, PDHWS1_3, PDHWS1_4, PDHWS1_5, PDHWS1_6, PDHWS1_7, PDHWS1_8),
  title = "",
  questions = c("PDHWS1_1", "PDHWS1_2", "PDHWS1_3", "PDHWS1_4", "PDHWS1_5", "PDHWS1_6", "PDHWS1_7", "PDHWS1_8"),
  question_labels = c("Create digital detox moments", "Have rules limiting digital media", "Use screen-time limiter", "Temporarily switch off Internet", "Delete apps/programs", "Turn off notifications", "Reduce time without special approach", "None of these actions"),
  stacked_type = "percent",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  horizontal = TRUE,
  x_label = "",
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  stack_label = NULL,
  weight_var = "weging_GAMO"
)

result
```


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave2-age-item1-2}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave2-age-item2-2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave2-age-item3-2}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave2-age-item4-2}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave2-age-item5-2}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave2-age-item6-2}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave2-age-item7-2}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_7"
)

result
```


###### item8


```{r perf-health-wave2-age-item8-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "AgeGroup",
  stack_var = "PDHWS1_8"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave2-gender-item1-2}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave2-gender-item2-2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave2-gender-item3-2}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave2-gender-item4-2}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave2-gender-item5-2}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave2-gender-item6-2}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave2-gender-item7-2}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_7"
)

result
```


###### item8


```{r perf-health-wave2-gender-item8-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "geslacht",
  stack_var = "PDHWS1_8"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-wave2-edu-item1-2}
# Create digital detox moments
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_1),
  title = "Create digital detox moments",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-wave2-edu-item2-2}
# Have rules limiting digital media
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_2),
  title = "Have rules limiting digital media",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-wave2-edu-item3-2}
# Use screen-time limiter
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_3),
  title = "Use screen-time limiter",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-wave2-edu-item4-2}
# Temporarily switch off Internet
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_4),
  title = "Temporarily switch off Internet",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-wave2-edu-item5-2}
# Delete apps/programs
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_5),
  title = "Delete apps/programs",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-wave2-edu-item6-2}
# Turn off notifications
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_6),
  title = "Turn off notifications",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-wave2-edu-item7-2}
# Reduce time without special approach
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_7),
  title = "Reduce time without special approach",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_7"
)

result
```


###### item8


```{r perf-health-wave2-edu-item8-2}
# None of these actions
result <- create_stackedbar(
  data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PDHWS1_8),
  title = "None of these actions",
  stacked_type = "percent",
  horizontal = TRUE,
  stack_breaks = c(0, 10, 20, 30),
  stack_bin_labels = c("Not selected", "Selected"),
  stack_map_values = list("1" = "Selected", "0" = "Not selected"),
  stack_order = c("Not selected", "Selected"),
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  x_var = "Education",
  stack_var = "PDHWS1_8"
)

result
```


:::


:::


### {{< iconify ph chart-line-fill >}} Over Time


::: {.panel-tabset}

##### {{< iconify ph users-fill >}} Overall


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-overtime-overall-item1-2}
# Create digital detox moments
result <- create_timeline(
  data = data,
  title = "Create digital detox moments",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_1"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-overtime-overall-item2-2}
# Have rules limiting digital media
result <- create_timeline(
  data = data,
  title = "Have rules limiting digital media",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_2"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-overtime-overall-item3-2}
# Use screen-time limiter
result <- create_timeline(
  data = data,
  title = "Use screen-time limiter",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_3"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-overtime-overall-item4-2}
# Temporarily switch off Internet
result <- create_timeline(
  data = data,
  title = "Temporarily switch off Internet",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_4"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-overtime-overall-item5-2}
# Delete apps/programs
result <- create_timeline(
  data = data,
  title = "Delete apps/programs",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_5"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-overtime-overall-item6-2}
# Turn off notifications
result <- create_timeline(
  data = data,
  title = "Turn off notifications",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_6"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-overtime-overall-item7-2}
# Reduce time without special approach
result <- create_timeline(
  data = data,
  title = "Reduce time without special approach",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_7"
)

result
```


###### item8


```{r perf-health-overtime-overall-item8-2}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  response_filter_label = "Percentage who selected/answered correctly",
  response_filter_combine = TRUE,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_8"
)

result
```


:::


##### {{< iconify mdi:human-male-male-child >}} Age


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-overtime-age-item1-2}
# Create digital detox moments
result <- create_timeline(
  data = data,
  title = "Create digital detox moments",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_1",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-overtime-age-item2-2}
# Have rules limiting digital media
result <- create_timeline(
  data = data,
  title = "Have rules limiting digital media",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_2",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-overtime-age-item3-2}
# Use screen-time limiter
result <- create_timeline(
  data = data,
  title = "Use screen-time limiter",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_3",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-overtime-age-item4-2}
# Temporarily switch off Internet
result <- create_timeline(
  data = data,
  title = "Temporarily switch off Internet",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_4",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-overtime-age-item5-2}
# Delete apps/programs
result <- create_timeline(
  data = data,
  title = "Delete apps/programs",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_5",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-overtime-age-item6-2}
# Turn off notifications
result <- create_timeline(
  data = data,
  title = "Turn off notifications",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_6",
  group_var = "AgeGroup"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-overtime-age-item7-2}
# Reduce time without special approach
result <- create_timeline(
  data = data,
  title = "Reduce time without special approach",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_7",
  group_var = "AgeGroup"
)

result
```


###### item8


```{r perf-health-overtime-age-item8-2}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_8",
  group_var = "AgeGroup"
)

result
```


:::


##### {{< iconify mdi gender-transgender >}} Gender


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-overtime-gender-item1-2}
# Create digital detox moments
result <- create_timeline(
  data = data,
  title = "Create digital detox moments",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_1",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-overtime-gender-item2-2}
# Have rules limiting digital media
result <- create_timeline(
  data = data,
  title = "Have rules limiting digital media",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_2",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-overtime-gender-item3-2}
# Use screen-time limiter
result <- create_timeline(
  data = data,
  title = "Use screen-time limiter",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_3",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-overtime-gender-item4-2}
# Temporarily switch off Internet
result <- create_timeline(
  data = data,
  title = "Temporarily switch off Internet",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_4",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-overtime-gender-item5-2}
# Delete apps/programs
result <- create_timeline(
  data = data,
  title = "Delete apps/programs",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_5",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-overtime-gender-item6-2}
# Turn off notifications
result <- create_timeline(
  data = data,
  title = "Turn off notifications",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_6",
  group_var = "geslacht"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-overtime-gender-item7-2}
# Reduce time without special approach
result <- create_timeline(
  data = data,
  title = "Reduce time without special approach",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_7",
  group_var = "geslacht"
)

result
```


###### item8


```{r perf-health-overtime-gender-item8-2}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_8",
  group_var = "geslacht"
)

result
```


:::


##### {{< iconify ph graduation-cap-fill >}} Education


::: {.panel-tabset}

###### {{< iconify ph chat-circle-fill >}} Question 1


```{r perf-health-overtime-edu-item1-2}
# Create digital detox moments
result <- create_timeline(
  data = data,
  title = "Create digital detox moments",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_1",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 2


```{r perf-health-overtime-edu-item2-2}
# Have rules limiting digital media
result <- create_timeline(
  data = data,
  title = "Have rules limiting digital media",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_2",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 3


```{r perf-health-overtime-edu-item3-2}
# Use screen-time limiter
result <- create_timeline(
  data = data,
  title = "Use screen-time limiter",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_3",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 4


```{r perf-health-overtime-edu-item4-2}
# Temporarily switch off Internet
result <- create_timeline(
  data = data,
  title = "Temporarily switch off Internet",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_4",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 5


```{r perf-health-overtime-edu-item5-2}
# Delete apps/programs
result <- create_timeline(
  data = data,
  title = "Delete apps/programs",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_5",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 6


```{r perf-health-overtime-edu-item6-2}
# Turn off notifications
result <- create_timeline(
  data = data,
  title = "Turn off notifications",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_6",
  group_var = "Education"
)

result
```


###### {{< iconify ph chat-circle-fill >}} Question 7


```{r perf-health-overtime-edu-item7-2}
# Reduce time without special approach
result <- create_timeline(
  data = data,
  title = "Reduce time without special approach",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_7",
  group_var = "Education"
)

result
```


###### item8


```{r perf-health-overtime-edu-item8-2}
# None of these actions
result <- create_timeline(
  data = data,
  title = "None of these actions",
  time_var = "wave_time_label",
  chart_type = "line",
  response_filter = 1,
  y_min = 0,
  y_max = 100,
  x_label = "",
  y_label = "Percentage who selected/answered correctly",
  color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"),
  response_filter_label = NULL,
  weight_var = "weging_GAMO",
  response_var = "PDHWS1_8",
  group_var = "Education"
)

result
```


:::


:::


:::
 

© 2025 Digital Competence Insights Dashboard - All Rights Reserved